object fRipple: TfRipple Left = 263 Top = 227 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'GT Ripple' ClientHeight = 302 ClientWidth = 486 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object pControls: TPanel Left = 165 Top = 0 Width = 321 Height = 302 Align = alClient BevelOuter = bvNone TabOrder = 0 object Label4: TLabel Left = 168 Top = 232 Width = 81 Height = 13 Caption = 'Refresh Delay' end object Label2: TLabel Left = 16 Top = 72 Width = 57 Height = 13 Caption = 'Amplitude' end object Label3: TLabel Left = 16 Top = 8 Width = 59 Height = 13 Caption = 'Frequency' end object Label5: TLabel Left = 176 Top = 8 Width = 36 Height = 13 Caption = 'Height' end object Label6: TLabel Left = 176 Top = 72 Width = 66 Height = 13 Caption = 'Perspective' end object Bevel1: TBevel Left = 16 Top = 216 Width = 297 Height = 2 end object Label1: TLabel Left = 176 Top = 128 Width = 36 Height = 13 Caption = 'Speed' end object cbHideDesktopIcons: TCheckBox Left = 16 Top = 176 Width = 137 Height = 17 Caption = 'Hide Desktop Icons' TabOrder = 8 OnClick = cbHideDesktopIconsClick end object tbPerspective: TTrackBar Left = 168 Top = 88 Width = 150 Height = 33 Max = 100 Orientation = trHorizontal Frequency = 5 Position = 20 SelEnd = 0 SelStart = 0 TabOrder = 3 ThumbLength = 20 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = tbPerspectiveChange end object tbSpeed: TTrackBar Left = 168 Top = 144 Width = 150 Height = 33 Max = 50 Min = 1 Orientation = trHorizontal Frequency = 2 Position = 5 SelEnd = 0 SelStart = 0 TabOrder = 4 ThumbLength = 20 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = tbSpeedChange end object tbRefreshRate: TTrackBar Left = 160 Top = 248 Width = 150 Height = 33 Max = 500 Min = 1 Orientation = trHorizontal Frequency = 25 Position = 20 SelEnd = 0 SelStart = 0 TabOrder = 5 ThumbLength = 20 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = tbRefreshRateChange end object tbAmplitude: TTrackBar Left = 8 Top = 88 Width = 150 Height = 33 Max = 10000 Min = 100 Orientation = trHorizontal PageSize = 100 Frequency = 1000 Position = 100 SelEnd = 0 SelStart = 0 TabOrder = 2 ThumbLength = 20 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = tbAmplitudeChange end object tbFrequency: TTrackBar Left = 8 Top = 24 Width = 150 Height = 33 Max = 200 Min = 1 Orientation = trHorizontal Frequency = 10 Position = 1 SelEnd = 0 SelStart = 0 TabOrder = 0 ThumbLength = 20 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = tbFrequencyChange end object tbHeight: TTrackBar Left = 168 Top = 24 Width = 150 Height = 33 Max = 100 Min = 20 Orientation = trHorizontal Frequency = 20 Position = 20 SelEnd = 0 SelStart = 0 TabOrder = 1 ThumbLength = 20 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = tbHeightChange end object cbMirror: TCheckBox Left = 16 Top = 128 Width = 97 Height = 17 Caption = 'Mirror' TabOrder = 6 OnClick = cbMirrorClick end object cbHorizontalRipple: TCheckBox Left = 16 Top = 192 Width = 137 Height = 17 Caption = 'Horizontal Ripple' TabOrder = 7 OnClick = cbHorizontalRippleClick end object rgWaveDirection: TRadioGroup Left = 16 Top = 232 Width = 137 Height = 65 Caption = 'Wave Direction' ItemIndex = 1 Items.Strings = ( '&Up' '&Down') TabOrder = 9 OnClick = rgWaveDirectionClick end object bMoreLess: TButton Left = 176 Top = 184 Width = 137 Height = 25 TabOrder = 10 OnClick = bMoreLessClick end object cbReflectWindows: TCheckBox Left = 16 Top = 144 Width = 137 Height = 17 Caption = 'Reflect Windows' TabOrder = 11 OnClick = cbReflectWindowsClick end object cbReflectDesktopIcons: TCheckBox Left = 16 Top = 160 Width = 145 Height = 17 Caption = 'Reflect Desktop Icons' TabOrder = 12 OnClick = cbReflectDesktopIconsClick end object cbStartAtStartup: TCheckBox Left = 168 Top = 280 Width = 137 Height = 17 Caption = 'Start at startup' TabOrder = 13 OnClick = cbStartAtStartupClick end end object pLogo: TPanel Left = 0 Top = 0 Width = 165 Height = 302 Align = alLeft BevelOuter = bvLowered Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = 'MS Serif' Font.Style = [fsBold, fsItalic] ParentFont = False TabOrder = 1 object iLogo: TImage Left = 9 Top = 11 Width = 145 Height = 88 Cursor = crHandPoint AutoSize = True OnMouseDown = iLogoMouseDown OnMouseUp = iLogoMouseUp end object lName: TLabel Left = 8 Top = 176 Width = 13 Height = 12 Caption = 'By' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object GTLink1: TGTLink Left = 24 Top = 176 Width = 88 Height = 12 Cursor = crHandPoint Hint = 'mailto:garethth@pnc.com.au' Caption = 'Gareth T Hadfield' Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsUnderline] ParentFont = False ParentShowHint = False ShowHint = True ClickedColor = clRed URL = 'mailto:garethth@pnc.com.au' end object GTLink2: TGTLink Left = 24 Top = 192 Width = 93 Height = 12 Cursor = crHandPoint Hint = 'http://www.pnc.com.au/~garethth' Caption = 'GTRipple Web Site' Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -9 Font.Name = 'Verdana' Font.Style = [fsUnderline] ParentFont = False ParentShowHint = False ShowHint = True ClickedColor = clRed URL = 'http://www.pnc.com.au/~garethth' end object lVersion: TLabel Left = 16 Top = 80 Width = 73 Height = 13 Caption = 'Version 1.3' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [fsBold] ParentFont = False Transparent = True end object GTTrayIcon1: TGTTrayIcon Left = 40 Top = 104 Width = 32 Height = 32 Hint = 'GT Ripple' OnLeftClick = GTTrayIcon1LeftClick OnRightClick = GTTrayIcon1RightClick end end object Timer1: TTimer Interval = 50 OnTimer = Timer1Timer Left = 8 Top = 104 end object pmTrayMenu: TPopupMenu OnPopup = pmTrayMenuPopup Left = 80 Top = 104 object Options1: TMenuItem Caption = '&Options' OnClick = Options1Click end object Refresh1: TMenuItem Caption = '&Refresh' OnClick = Refresh1Click end object Suspend1: TMenuItem Caption = '&Suspend' OnClick = Suspend1Click end object HideDesktopIcons1: TMenuItem Caption = '&Hide Desktop Icons' OnClick = HideDesktopIcons1Click end object N1: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' OnClick = Exit1Click end end end